program zadacha_3_14;

uses crt;
var N, i : integer;
Pr : boolean;

BEGIN
	write('N=');
	readln(N);
	Pr:=true;
	for i:=2 to N div 2 do
		if N mod i = 0 then
			begin
				Pr:=false;
			break;
			end;
	if Pr then
		writeln('Число ', N, ' - простое')
	else
		writeln('Число ',N,' простым не является');
END.
